PC World Komputer 1997 November/Pcwk1197.iso/LOTUS/Eng-ins/SMASTERS/APPROACH/DB2WWW.MPR/SCRIPT/ApproachDoc/WWW Assistant/Body/txtNumRows.s

Null Bytes Alternating | 1997-01-09 | 2KB | 27 lines

'++LotusScript Development Environment:2:5:(Options):0:66

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Change(Source As Fieldbox)

'++LotusScript Development Environment:2:5:(Declarations):0:2

'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As FIELDBOX
    Set Source = Bind(Objectname_)
    On Event Change From Source Call Change
End Sub

'++LotusScript Development Environment:2:2:Change:1:12
Sub Change(Source As Fieldbox)
    'This will check to make sure that anything typed in the numrows box is a whole number only:
    On Error Resume Next
    If Not (Isnumeric(source.text)) Or (Int(Val(source.text))) <> Val (source.text)  Or Left$(source.text,1) = "-" Then
        Messagebox "Must enter whole positive numbers only",,"Input Error"
        source.text = ""
        source.refresh
        source.setfocus
    End If

    Err = 0
End Sub